0 POKE50257,16:POKE198,0:IFPEEK(12288)=255THEN60
10 POKE53280,0:POKE53281,0:PRINT"[147][159]   ZUM SAVEN JETZT CTRL[146] S[146] DRUECKEN !":PRINT"   SONST SPACE[146] !"
40 IFPEEK(203)<>60THEN40
50 IFPEEK(203)=60THEN50
55 SYS8576:POKE46,73:CLR
60 POKE50257,20:PRINT"[147]":SYS8192:SI=54272:FH=SI+1:W=SI+4:A=SI+5:H=SI+6:L=SI+24:DIMU$(20):PRINT"[147]"CHR$(14)CHR$(8);:N=14:GOSUB120:GOTO290
120 FORI=1TON:READU$(I):NEXTI:FORK=1TON:FORJ=1TOLEN(U$(K)):B$=MID$(U$(K),J,1):PRINTB$;:GOSUB150:NEXTJ:PRINT:PRINT:NEXTK:RETURN
150 IFB$=" "THENRETURN
160 POKEL,15:POKEA,19:POKEH,0:POKEFH,74:POKEW,33:FORSD=1TO10:NEXTSD:POKEW,32:RETURN:DATA"       [156] [208]AULCHEN'S  [211]CHIEBUNG [146]                              ":DATA" [194]EI DIESEM [211]PIEL MUSST [196]U DIE BEIDEN":DATA" [208]AULCHEN WIEDER ZURUECKSCHIEBEN.      "
210 DATA" [200]IERZU BEWEGE DEN [195]URSOR AUF DAS      ":DATA" ZU VERSCHIEBENDE [198]ELD UND DRUECKE     ":DATA"  [211][208][193][195][197] [146] ODER  [198][197][213][197][210] [146]. [215]ENN BEIDE ":DATA" [208]AULCHEN WIEDER RICHTIG SIND,KANN NOCH"
250 DATA" MAL DAS GLEICHE [194]ILD ABGERUFEN WERDEN.":DATA" [218].[194]. FUER MEHRERE [211]PIELER.            ":DATA" [196]IE [212]ASTEN SIND  [193] [146], [218] [146], , [146], . [146] ! ":DATA" ODER [202]OYSTICK [208]ORT 2 .":DATA" [196]AS [205]ISCHEN WIRD MIT  [211][208][193][195][197] [146] GESTARTET"
286 DATA" UND AUCH WIEDER GESTOPPT.             ":DATA"             [214]IEL [211]PASS!               "
290 PRINT"           [159] [196]RUECKE [211][208][193][195][197]":WAIT203,64,64:PRINT"[147]"CHR$(142):DIMV(18,3):FORI=0TO18:FORJ=0TO3:READV(I,J):NEXT:NEXT:DATA1,5,1,5,-1,5,1,5,-1,5,1,5,-1,5,-1,5,,,,:DATA-5,1,5,1,-1,1,-5,5,-1,1,-5,5,-1,-5,5,-1,,,,
360 DATA-5,1,5,1,-1,1,-5,5,-1,1,-5,5,-1,-5,5,-1,,,,:DATA-5,1,-5,1,-1,-5,1,-5,-1,1,-5,-5,-1,-5,-1,-5:V=53248:FORI=0TO63:READA:POKE896+I,A:NEXT:DATA0,0,0,0,0,0,120,0,60,132,0,66:DATA148,198,89,73,199,38,46,56,232
430 DATA66,238,132,129,239,2,128,68,2:DATA128,254,2,65,125,4,62,56,248,3:DATA147,128,14,16,252,57,239,27,80:DATA130,4,160,68,2,0,56,0,0,0,0,0:DATA0,0,173:POKEV+29,255:POKE53265,27:DIMA$(15):R$="[157][157][157][157][157][157][157][157][157]"
520 A$(0)="        B"+R$+"  _^!\#$B"+R$+"JK@LMNOPQ"+R$+"[214][215][216][217][218][219][220][221][255]":A$(0)=A$(0)+R$+"    [178][179]@@E"+R$+"AAAA@[146]DDA[146]F":A$(1)="        B"+R$+"     %&'B"+R$+";<=>?[192][193][194][195]"+R$+"@@@@[223][160][161][162][163]"
550 A$(1)=A$(1)+R$+"@@@@[180][181][182][183][184]"+R$+"DDDDBCDEF":A$(2)="        B"+R$+" ()*+   B"+R$+"[196][197][198][199][200][201][202][203][204]"+R$+"[164][165][166][167][168]@@@E"+R$:A$(2)=A$(2)+"@[185][186][187][188]@@@E"+R$+"GHIJ[146]DKL[146]DF":A$(3)="        B"+R$+" ,-./GHIB"+R$+"[205][206][207][208][209][210][211][212][213]"+R$+"[169][170][171][172][173][174][175][176][177]"+R$
590 A$(3)=A$(3)+"@@@[189][190][191]  B"+R$+"DM[146]DDNO[146]AAC":A$(4)="    PQRST[146]"+R$+"      *+,[146]"+R$+"   >?[192][193][194][195][146]"+R$:A$(4)=A$(4)+"  [217][218][219][220][221][255][223][146]"+R$+"   [176][177][178][179][146] B"+R$+"AAAAAAAAC":A$(5)="UVWXYZ[\[146]E"+R$+"-./01[146]@@23[146]"+R$+"[196][197][198][199][200][146]@[201][202][203]"+R$
640 A$(5)=A$(5)+"[160][161][146]  [162][163][164][146]@E"+R$+"      [180][181][182][146]"+R$+"AAAAAAAAC":A$(6)="@]^_ ![146]]#$[146]"+R$+"45[146]@@6789:[146]"+R$+"[204][205][206][146]@[207][208][209][210][211][146]"+R$:A$(6)=A$(6)+"@@[165][166][167][146]  [168][169][146]"+R$+"[183][184][185][186][146]    B"+R$+"AAAAAAAAC"
670 A$(7)="%&'()[146]   B"+R$+";<=[146]     B"+R$+"[212][213][214][215][216][146]   B"+R$:A$(7)=A$(7)+"[170][171][172][173][146] [174][175][146] B"+R$+"  [187][188][189][190][146]  B"+R$+"AAAAAAAAC":FORI=0TO7:A$(I+8)="[153]"+A$(I):NEXT:FORI=0TO7:A$(I)="[151]"+A$(I):NEXT
710 A$(15)="[129]@@@@@@@@E"+R$+"@@@@@@@@E"+R$+"@@@@@@@@E"+R$+"@@@@@@@@E"+R$:A$(15)=A$(15)+"@@@@@@@@E"+R$+"DDDDDDDDF":DIMP$(18):P1$="":P2$="":P$(0)="NN":P$(1)=P$(0)+P1$
760 P$(2)=P$(1)+P1$:P$(3)=P$(2)+P1$:P$(5)=P$(0)+P2$:P$(6)=P$(5)+P1$:P$(7)=P$(6)+P1$:P$(8)=P$(7)+P1$:P$(10)=P$(5)+P2$:P$(11)=P$(10)+P1$:P$(12)=P$(11)+P1$:P$(13)=P$(12)+P1$:P$(15)=P$(10)+P2$
870 P$(16)=P$(15)+P1$:P$(17)=P$(16)+P1$:P$(18)=P$(17)+P1$:DIMPS(15):DIMP2(15):DIMS(18):SYS4*4096:FORA=0TO12STEP4:FORI=ATOA+3:PS(I)=I+C:NEXTI:C=C+1:NEXTA
980 POKE53265,11:POKE53270,PEEK(53270)OR16:PRINTCHR$(147);:POKE53281,1:POKE53282,0:POKE53283,7:PRINTCHR$(14):POKE53272,29:FORI=0TO15:PRINT""P$(PS(I))A$(I):NEXTI:PRINT"";:FORI=1TO24:PRINT"NN[157][157]";:NEXT:PRINT"NN";:PRINT"[157][157]";:FORI=1TO24:PRINT"NN[157][157]";:NEXT
1070 PRINT"[157]BN";:POKE2023,14:POKE56295,8:POKE53281,10:I=0:POKE53265,27:SYS8656:POKE53281,10
1100 Z=INT(RND(0)*4):Z=PS(15)+V(PS(15),Z):IFPS(I)=ZTHEN1100
1120 FORI=0TO15:IFPS(I)<>ZTHENNEXT
1130 PA=PS(I):PS(I)=PS(15):PS(15)=PA:PRINT""P$(PA)A$(15)""P$(PS(I))A$(I):IFPEEK(56320)<>111ANDPEEK(203)<>60THEN1100
1170 FORI=0TO15:P2(I)=PS(I):S(PS(I))=I:NEXTI
1190 V=53248:POKE53272,29:POKE2042,14:POKEV+41,6:POKEV+4,54:POKEV+5,68:TI$="000000":Z=0:POKEV+21,4:PRINT""P$(15)"      TUVW:"TI$"    TXY:"Z;:POKE53265,27
1240 POKE214,24:POKE211,14:SYS58640:PRINTTI$""Z;:SYS8352:IFPEEK(2)THEN1240
1260 X=PEEK(53252):Y=PEEK(53253):SP=INT((X-16)/72)+INT((Y-36)/48)*5:IFPS(15)<>SP-5ANDPS(15)<>SP+5ANDPS(15)<>SP+1ANDPS(15)<>SP-1THEN1240
1310 Z=Z+1:H1=PS(15):PS(15)=SP:PS(S(SP))=H1:H2=S(SP):S(SP)=15:S(H1)=H2:PRINTCHR$(19)P$(PS(15))A$(15):PRINTCHR$(19)P$(H1)A$(H2):C=0:FORA=0TO12STEP4:FORI=ATOA+3:IFPS(I)<>I+CTHEN1240
1410 NEXTI:C=C+1:NEXTA:T=TI:PRINT"[147]":POKE53252,250:POKE53253,75:POKE53270,200:POKE56576,151:POKE53272,21:POKE53281,15:PRINT:PRINT"[129] DU HAST ES GESCHAFFT !!!":PRINT:PRINT" DU BRAUCHTEST"INT(T/60)"SEKUNDEN ":PRINT:PRINT" UND"Z"ZUEGE."
1490 PRINT" NOCHMAL DAS LETZTE PUZZLE ? (L)":PRINT" ODER NEU MISCHEN          ? (M)"
1510 GETA$:IFA$=""THEN1510
1520 IFA$="L"THEN1550
1530 IFA$<>"M"THEN1510
1540 POKEV+21,0:GOTO980
1550 POKE53265,11:POKE53280,0:POKE53281,10:POKE56325,64:PRINT"[147]":POKE53282,0:POKE53283,7:PRINTCHR$(14):FORI=0TO15:PS(I)=P2(I):S(PS(I))=I:NEXTI:POKE53272,29:POKE53270,216:FORI=0TO15:PRINT""P$(PS(I))A$(I):NEXTI:PRINT"";:FORI=1TO24:PRINT"NN[157][157]";:NEXT:PRINT"NN";
1670 PRINT"[157][157]";:FORI=1TO24:PRINT"NN[157][157]";:NEXT:PRINT"[157]BN";:POKE2023,14:POKE56295,8:GOTO1190